# print with leading zeros

sink("list.txt")
for(i in 1:2126){
cat(formatC(i, width=5, flag="0"),"\n")  # use the format command
sprintf("%05d", i)
}
sink()



for(i in 1:6){
cat(i,"\n")
sprintf("%05d", i)
}


for(i in 1:2126){
cat(formatC(i, width=5, flag="0"),"\n")
sprintf("%05d", i)
}



i= "125"
as.integer(i)
sprintf("%05d", as.integer(i))